PutInStevesMctrash
=ERROR(FALSE)
=SET.NAME("FindAppWin",CALL("User","FindWindow","IJC",0,"Steve's McTrash Dumpster"))
=IF(FindAppWin=0)
=ALERT("Steve's McTrash Dumpster is not running; please start it and then try deleting this file again!",3)
=RETURN()
=END.IF()
=IF(ISERROR(GET.DOCUMENT(2)))
=ALERT("This file has not been saved yet, so it cannot be put in the dumpster!",3)
=RETURN()
=ELSE()
=SET.NAME("DocName",GET.DOCUMENT(1))
=SET.NAME("DocPath",GET.DOCUMENT(2))
=END.IF()
=CLOSE()
=SET.NAME("EndChar",RIGHT(DocPath,1))
=IF(EndChar="\")
=SET.NAME("Executable","ZAP="&DocPath&DocName)
=SET.NAME("DelFile",DocPath&DocName)
=ELSE()
=SET.NAME("Executable","ZAP="&DocPath&"\"&DocName)
=SET.NAME("DelFile",DocPath&"\"&DocName)
=END.IF()
=SET.NAME("Channel",INITIATE("MCTRASH","FORM1"))
=EXECUTE(Channel,Executable)
=TERMINATE(Channel)
=BEEP()
=SET.NAME("FileGone",DelFile&" has been deleted!")
=MESSAGE(TRUE,FileGone)
=WAIT(NOW()+"00:00:03")
=MESSAGE(FALSE)
=RETURN()